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6 THSDFLOOR = greatest integer double routine 
14 MTHSDFLOOR_R3 = greatest integer double routine 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® ® 
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*® ® 
** ® 
:# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: TRANSFERRED. . 
® * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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: PRARRBAAAAAAAALALASSALAALALELESALEASEESESESESAESSRE EER S ESR SESE RR RSR SESE RRS ES SS 
: "FACILITY: Math Library 

; ABSTRACT: 

This routine finds the largest integer less than the input 

value, i.e. it truncates toward negative infinity 

for data type double. 


; ENVIRONMENT: User Mode, AST Reentrant 
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: AUTHOR:R. Will, CREATION DATE: 1-Dec-78 
; MODIFIED BY: 
; VERSION 00 
; 1-001 - Original 
1-006 - Add to the PSECT firecttye.., x S 26s DEC-78 
1-005 - Put nTwshint” code. in line, RW 2 9 
1-004 - bug for -1 < input < 83 Rw aul -79 
1-005 - Aad a JSB entry “point S$ 25-JUL-1979 
1- 06 - Change name to M ASDELOOR’ JBS "2 -JUL-1979 
1-007 = Disa te IV in JSB routine. RW 10-Dec-79 
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! .SBTTL DECLARATIONS 
+ INCLUDE FILES: 


> EXTERNAL DECLARATIONS: 


+ EQUATED SYMBOLS: 
OWN STORAGE: 


t PSECT DECLARATIONS: 


-PSECT _MTHSCODE PIC, USR, CON, REL, LCL, SHR, 
EXE, RD, NOWRT, LONG 
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-DSABL GBL ; Prevent undeclared 
: MACROS: 
SPSLDEF 3; define PSL 
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M007 MTHSDFLOOR = greatest integer double ro ors Eb} 984 1:22:05 MTHRTL. SRCIMTHDFLOOR.MAR; 1 ra 
§ : -SBTTL MTHSDFLOOR = greatest integer double routine 
2 ; FUNCTIONAL DESCRIPTION: 
0; This routine finds the floor by truncating, and then if the 
Bp 4 ; input value is negative and not an integer subtracting 1. 
0000 $8 ; CALLING SEQUENCE: 
9900 99 ; CALL result_int.wd.v = MTHSDFLOOR (input.rd.r) 
3008 $7 ; INPUT PARAMETERS: 
00000004 0000 35 - input_addr = 4 ; address of the double number 
0000 100 ; to get the floor of 
0000 101; 
0000 19 ; IMPLICIT INPUTS: 
0000 103; 
0000 104 ; NONE 
0000 105; 
0000 198 3; OUTPUT PARAMETERS: 
0000 107; 
0000 108 ; NONE 
0000 109; 
0000 110 ; IMPLICIT OUTPUTS: 
0000 111; 
0000 ie ; NONE 
0000 113; 
0000 114 ; FUNCTION VALUE: 
0000 115 ; COMPLETION CODES: 
0000 38 ; 
0000 117 ; the double value of the greatest integer 
0000 118; 
0000 119 ; SIDE EFFECTS: 
0000 120; 
0000 121; NONE 
0000 \$¢ 3 
44 \s i-- 
0000 124 
000C 44 \$3 ENTRY MTHSDFLOOR, “M<R2, R3> i entry point 
50 04 6C 70 $003 127 OVD @input_addr(AP), RO : RO/R1 = input argument 
52 52 08 00 50 74 Q006 128 EMODD RO, #0, #1, R2, R2 ; R2/R3 = fraction_part targ) 
50 52 62 Bee ! 3 SUBD2 R2, RO ; RO/R1 = integer_part (arg 
07 «(14 4 8 ! 1 BGTR 40$ : if > 0, have correct answer 
5 73. 0011~=—1 : TSTD R2 : look at fraction part 
0 18 Bate 134 BGEQ 40$ : if > 0 then 0 < input < 1 and 
01 135 ; .we have the correct answer 
Bie 1 $ ; if = 0 then input was integer 
B12 : , : and we have correct answer 
50 08 62 Q015 139 SUBD2 = #1,R0 ; subtract 1 from truncated 
O18 109 i negative non-integer 
04 01 142 40$: RET 
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vant MTHSDFLOOR_R3S : greatest integer double ase 1:22:05 CMTHRTL.SRCIMTHDFLOOR.MAR; 1 . (4). 
O18 re: a -SBTTL MTHSDFLOOR_R3 = greatest integer double routine 
3 148 3 FUNCTIONAL DESCRIPTION: 
o18 138 : This is the JSB entry point to MTHS$DFLOOR. 
$13 139 3 CALLING SEQUENCE: 
B13 13 ; JSB result_int.wd.v = MTHSDFLOOR_R3 (input.rd.v) 
0018 138 3; INPUT PARAMETERS: 
19 156: RO and R1 contain the input value 
0019 123 3 
0019 158 ; IMPLICIT INPUTS: 
0019 159; 
0019 160; NONE 
0019 161; 
0019 196 ; OUTPUT PARAMETERS: 
0019 163; 
0019 164; NONE 
0019 165 ; 
0019 196 ; IMPLICIT OUTPUTS: 
0019 167; 
0019 168; NONE 
0019 169 ; 
0019 170 ; FUNCTION VALUE: 
0019 171 ; COMPLETION CODES: 
0019 7 3 
0019 173; the double value of the greatest integer 
0019 174; 
0019 175 ; SIDE EFFECTS: 
0019 176; 
0019 177; IV is disabled temporarily 
0019 178; 
0019 179 ;==- 
0019 180 
0019 181 MTHSDFLOOR_R3:: 3 entry point 
3213 136 
7E dC 0019 18 MOVPSL =(SP) ; Save current PSL 
20 B9 OO01B 184 BICPSW #PSLSM_IV ; Disable integer overflow 
se we S&S 2 DB FF 6318 185 EMODD RO, #0, #1, R2, R2 ; R2/R3 = fraction_part farg) 
50 52 62 0036 196 SUBD2 R2, RO ; RO/R1 = integer_part (arg 
07 «314 3 3 183 BGTR 40$ ; if > 0, have correct answer 
5 73 0028 190 TSTD r : look at fraction part 
0 18 OO2A 191 BGEQ 40$ : if > 0 then 0 < input < 1 and 
02C 135 3; .we have the correct answer 
02c 19 : if = 0 then input was integer 
; 133 > and we have correct answer 
50 08 62 002C 196 SUBD2 #1,R0 3; subtract 1 from truncated 
o : 13 3; negative non-integer 
52 BE FFFFFFDF 8F CB F 199 40$: BICL3 #*C<PSLSM_IV>, (SP)+, R2 ; Clear all but right byte 
52 B8 0037 200 BISPSW R2 ; Restore previous IV 
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Symbol table 


T_ADDR 
AlntofiboR Re 02 
MTHSDFLOOR_R3 19 RG 
PSLSR_IV . 20 
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! Psect synopsis ! 


geen e reer soc ecean st 


PSECT name Allocation PSECT No. Attributes 

. . 800008 8 ( ») 99 ( 9} NOPIC USR CON ABS ~ LCL NOSHR NOEXE 
SABS ( ») 1 ¢ -) NOPIC USR CON ABS LCL NOSHR- EXE 
_MTHSCODE QOOOO03SA ( 58.) O02 ¢ 2.) PIC USR CON REL LCL SHR_ EXE 


Performance indicators ! 


' 
‘ Sere cae cr aen see naen nase ones > 


Initialization 34 00:00: 9.08 0:00:01.53 
Command processing 138 00:00: 3°¢ 0: sae? 
Pass 11 0:00:00.97 0:00:04.88 
Symbol table sort 8 0:00:00.03 a Set Be 
Pass 2 4 0:00:00.46 0:00:01.47 
Symbol table output 0:00:00.01 Be 80:80 01 
Psect synopsis output 0:00:00.02 00:00:00.03 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 316 00:00:02.05 00:00:10.82 


The working set Limit was 900 pages - 

4361 bytes (9 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 42 non-local and 2 local symbols. 
03 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
pages of virtual memory were used to define / macros. 


+ + 
: Macro library statistics : 
Macro Library name Macros defined 
_$255$0UA28: CSYSLIBISTARLET.MLB; 2 4 
98 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
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NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDFLOOR/OBJ=OBJ$:MTHDFLOOR MSRC$:MTHDFLOOR/UPDATE=(ENHS:MTHDFLOOR) 


ee| 


I 
R 


IGI 
ONFIDENTIAL AND PROPRI 


> 
o> 
aoe, 
cr 
O Lu 
oO 
ou 
o 
Oo 
oO 
_ 
= 
Lu 
= 
ou 
rH 
= 
co 
Lu 
nol 
c 
kre 
oz 
joc 


0259 Gaxsuns va. o 


